home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 62
/
062.d81
/
political bs
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
970b
|
25 lines
100 poke53280,.:poke53281,.:print"[147]"
110 gosub240: rem print message
120 print" [208]lease wait, loading font...[157][157][157][157][157][157][157]";
130 sys57812"pbs.font",8,0:poke780,.:poke781,.:poke782,224:sys65493
140 :
150 print"sprites...[157][157][157][157][157][157][157][157][157][157]";
160 sys57812"pbs.spr",8,.:poke780,.:poke781,.:poke782,240:sys65493
170 :
180 print"m-l code..."
190 sys57812"pbs.ml",8,.:poke780,.:poke781,.:poke782,206:sys65493
200 :
210 print"[145] "
215 poke214,13:print:print"[145] and now -- [208][207][204][201][212][201][195][193][204] [194][211]... "
220 print"[144]load";chr$(34);"ls pol bs";chr$(34);",8"
230 print"run":poke631,13:poke632,13:poke198,2:end
240 poke214,16:print:print" [155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][152]"
250 fori=1to3:print" ":next
260 print" [208][213][194][204][201][211][200][197][196] [207][206] [204][207][193][196][211][212][193][210] #62 "
270 print" ([195]) 1989 by [211][207][198][212][196][201][211][203], [201]nc. "
280 print" [211][213][194][211][195][210][201][208][212][201][207][206][211] 1-800-831-2694 "
290 print" [151][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
300 au$="[208][207][204][201][212][201][195][193][204] [194][211]":poke214,18:print:printspc(20-len(au$)/2)"[152]"au$
310 au$="by [197]. [202][197][206][203][201][206][211] and [203]. [199][210][207][214][197][210]":poke214,19:print
320 printspc(20-len(au$)/2)"[152]"au$"":return